home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 7
/
Aminet 7 - August 1995.iso
/
Aminet
/
comm
/
cnet
/
randchat.lha
/
RandChat.REXX
< prev
Wrap
OS/2 REXX Batch file
|
1993-12-31
|
251b
|
25 lines
/* RandChat by Wolverine / DMI */
options results
parse arg chat
sf = 'sendfile'
MaxFiles=4
path = 'pfiles:ChatText/'
main:
num = random(1,MaxFiles,time(s))
if chat = 'chat' then do
sf path||'chat.'num
end
else do
sf path||'end.'num
end
exit